home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1 / Ian and Stuart's One (Australia).iso / Australasian Legends / Commercial / Rainbow Hill / MacDOS™ 2.0.0 / sample MacDOS script < prev   
Text File  |  1994-02-24  |  744b  |  30 lines
  1. set fileList to expand wildcards "Rainbow Hill:MacDOS folder:autoexec.bat"
  2. tell application "Rainbow Hill:MacDOS folder:MacDOS"
  3.     --    dosExecute "set quote=$"
  4.     --    dosExecute "type $1.1.0 vs 1.0.1$"
  5.     --    dosExecute "set quote ="
  6.     
  7.     --    dosExecute "confirm off"
  8.     --    dosExecute "log zzz"
  9.     --    dosExecute "dir > xyz"
  10.     --    dosExecute "del xyz"
  11.     --    dosExecute "log/-"
  12.     --    dosExecute "type zzz"
  13.     --    dosExecute "del zzz"
  14.     
  15.     --    dosExecute "dir/p"
  16.     
  17.     --    launch
  18.     --    run
  19.     --    open alias "Rainbow Hill:MacDOS folder:autoexec.BAT"
  20.     
  21.     --    setVar "abcd" to "aaaa"
  22.     --    set zzz to (getVar "abcd")
  23.     
  24.     --    quit
  25.     --    dosExecute "log"
  26.     set val to getVar "pippo"
  27.     display dialog (getVar "where") & " " & val
  28. end tell
  29. --display dialog "MacDOS returned the string '" & zzz & "'"
  30.